home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 5 / Digital_Talk_05_1994-01-30_Digital_Talk_de_Side_B.d64 / basic corner (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  139 lines
  1. 10 print"[147]"
  2. 20 poke 53280,0:poke53281,15:poke646,0
  3. 30 print"          [146] [160]    [146]       [146]     [146]      [146]"
  4. 40 print"        [146]   [146][160]     [146]      [146]    [146] [160]   [146]"
  5. 50 print"        [146]   [146]   [146]    [146]   [146]  [160]   [146]    [146]"
  6. 60 print"          [146]        [146]    [146]     [146]    [146]"
  7. 70 print"        [146]   [146]   [146]    [146]     [146]    [146]    [146]"
  8. 80 print"        [146]   [146]   [146]    [146][160]    [146]    [146]     [146]"
  9. 90 print"          [146]    [146]    [146]    [146]      [146]      [146]"
  10. 100 print"       digital talk basic corner"
  11. 110 l$="sprites,p,r"
  12. 120 print"           von ford prefect"
  13. 130 print" lade sprites..."
  14. 140 open 1,8,2,l$
  15. 150 get #1,no$,no$: rem bytes ueberlesen
  16. 170   for l = 12288 to 12864
  17. 180     get#1,byte$
  18. 190      ifbyte$=""thenpokel,0:nextl
  19. 200    poke l,asc(byte$)
  20. 210 next l
  21. 220 close 1
  22. 230 :
  23. 240 for t = 0 to 7
  24. 250     poke 53287+t,0
  25. 260  next t
  26. 270  rem    alle sprites schwarz
  27. 280 :
  28. 290 forl=0to5
  29. 300 poke 2040+l,192+l
  30. 310 nextl
  31. 320 rem      sprite pointer setzten
  32. 330 print"[147]";
  33. 340 poke 53269,255:rem alle sprites an
  34. 350 forl=0to10step2:poke53249+l,50:nextl:
  35. 360 forl=255 to 50step-2:poke53248,l:nextl
  36. 370 forl=255 to 62step-2:poke53250,l:nextl
  37. 380 forl=255 to 82step-2:poke53252,l:nextl
  38. 390 forl=255 to 97step-2:poke53254,l:nextl
  39. 400 forl=255 to104step-2:poke53256,l:nextl
  40. 410 tx$="basic corner"
  41. 420 forl=12to1step-1:print"                 ";mid$(tx$,l,12):
  42. 430 forg=0to25:nextg,l
  43. 440 print" bitte auswaehlen mit joy in port ii..."
  44. 450 print"    ...sprite animation"
  45. 460 print""
  46. 470 print"    ...ende"
  47. 480 :
  48. 490 rem aufwaerts
  49. 500 gosub 610:fl=1
  50. 510 forl=0to3:poke2045,197+l
  51. 520 ifpeek(56320)=126thengosub610
  52. 530 ifpeek(56320)=125thengosub620
  53. 540 ifpeek(56320)=111then on fl goto 630,1330
  54. 550 nextl
  55. 560 forg=3to0step-1:poke2045,197+g
  56. 570 ifpeek(56320)=126thengosub610
  57. 580 ifpeek(56320)=125thengosub620
  58. 590 ifpeek(56320)=111then on fl goto 630,1330
  59. 600 nextg:goto 510
  60. 610 poke53258,47:poke53259,103:fl=1:return
  61. 620 poke53258,47:poke53259,127:fl=2:return
  62. 630 print"[147]";:poke53269,0
  63. 640 print"        die sprite animation"
  64. 650 print" man benoetigt zunaechst eine"
  65. 660 print" animationsreihe, die im speicher "
  66. 670 print" hintereinander abgelegt werden muss."
  67. 680 print" der animierte kreis in diesem programm"
  68. 690 print" liegt folgendermassen im ram :"
  69. 700 poke2040,197:poke2041,198:poke2042,199:poke2043,200
  70. 710 poke 53269,15:fort=0to8step2:poke53249+t,150:nextt
  71. 720 poke53248,47:poke53250,95:poke53252,150:poke53254,200
  72. 730 print"   1     2      3     4"
  73. 740 print" dabei liegt sprite 1 von 12608-";12608+63
  74. 750 print" im speicher, 2 von ";12608+64;" bis ";12608+127
  75. 760 print" usw."
  76. 770 print"           taste druecken !"
  77. 780 geta$:ifa$=""then780
  78. 790 poke53269,0:print"[147]";
  79. 800 print" in den speicherzellen 2040-2047 werden"
  80. 810 print" die lagen der sprites im ram fest-"
  81. 820 print" gehalten. da unsere animationssprites"
  82. 830 print" hintereinander im ram liegen, braucht"
  83. 840 print" man lediglich die werte in einer "
  84. 850 print" schleife zu erhoehen ."
  85. 860 print"                taste !"
  86. 870 geta$:ifa$=""then870
  87. 880 print"[145][145]"
  88. 890 print"10 for l = 197[144] to 200[144]  "
  89. 900 print"20 poke 2040[144],l
  90. 910 [153]"30 next l"
  91. 920 [153]"40 goto 10"
  92. 930 [153]" taste !"
  93. 940 [161]a$:[139]a$[178]""[167]940
  94. 950 [153]"on              onon"
  95. 960 [151]2040,197:[151]53269,1:[151]53248,220:[151]53249,140
  96. 970 [156]:[129]g[178]0[164]5:[129]l[178]197[164]200:[151]2040,l:[129]m[178]1[164]80:[130]m,l,g
  97. 980 [153]" nanu ? wieso ist die animation so ab-"
  98. 990 [153]" gehackt ?"
  99. 1000 [153]" erinnern wir uns : in der animations-"
  100. 1010 [153]" reihe wurde der ball immer etwas"
  101. 1020 [153]" kleiner, allerdings nicht groesser !"
  102. 1030 [153]" das braucht's auch nicht, denn man "
  103. 1040 [153]" kann ja die schleife auch herabzaehlen,";
  104. 1050 [153]" so dass der film praktisch rueckwaerts"
  105. 1060 [153]" laeuft !"
  106. 1070 [153]"                  taste !"
  107. 1080 [161]a$:[139]a$[178]""[167]1080
  108. 1090 [151] 53269,0:[153]"load";
  109. 1100 [153]" probieren wir's mal mit folgendem"
  110. 1110 [153]" programm :"
  111. 1120 [153]"10 for l = 197 to 200"
  112. 1130 [153]"20 poke 2040,l"
  113. 1140 [153]"30 next l"
  114. 1150 [153]"40 for l = 199 to 196 step -1stop"
  115. 1160 [153]"50 poke 2040,l
  116. 1170 print"60 next l
  117. 1180 [153]"70 goto 10"
  118. 1190 [153]"                taste !"
  119. 1200 [161]a$:[139]a$[178]""[167]1200
  120. 1210 [153]"on                       "
  121. 1220 [151] 53248,200:[151]53249,110:[151]53269,1:[156]
  122. 1230 [129]g[178]1[164]5:[129]l[178]197[164]200:[151]2040,l:[129]m[178]1[164]80:[130]m,l
  123. 1240 [129]l[178]199[164]198[169][171]1:[151]2040,l:[129]m[178]1[164]80:[130]m,l,g
  124. 1250 [153]" na bitte ! alles laeuft primstens !"
  125. 1260 [153]" taste -> zurueck ins menue"
  126. 1270 [161]a$:[139]a$[178]""[167]1270
  127. 1280 [129]l[178]53248[164]53260:[151]l,0:[130]l:[151]53269,0:[137]240
  128. 1290 :
  129. 1300 : [143]          menuepunkt 2
  130. 1310 :
  131. 1320 :
  132. 1330 [151]53269,0:[153]"load dieser basic-corner wurde programmiert"
  133. 1340 [153]" von  :   ford prefect"
  134. 1350 [153]" rueckfragen entweder ueber c-f,"
  135. 1360 [153]" digital talk oder einen brief mit rp"
  136. 1370 [153]" an mich senden (adresse siehe"
  137. 1380 [153]" digital talk adress-book) ! "
  138. 1390 [153]" auf wiederlesen !"
  139.